! file name=nem.h
      real(NBF),pointer,dimension(:,:) :: flp
      real(NBF),pointer,dimension(:,:,:) :: jinl,jinr,joutl,joutr,sfl,sfr,fm,sm,ajil,ajir
!
      common/nema/flp
      common/nemb/jinl,jinr,joutl,joutr,sfl,sfr,fm,sm,ajil,ajir
